home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
newu173c.zip
/
RSB4NEWU.MRG
< prev
Wrap
Text File
|
1992-03-26
|
2KB
|
48 lines
* ------------[ BLED merge (c) Ken Goosens ]------------
* Merge this against RBBSSUB4.BAS to produce RBBSSUB4.NEW
* RBBSSUB4.BAS: Date 9-1-1991 Size 123727 bytes
* ------------[ Created 1-25-92 11:59:14 ]------------
* REPLACING old lines(s) by new
59698 ' $SUBTITLE: 'MsgImport -- subroutine to import a message'
' $PAGE
'
' NAME -- MsgImport
'
' INPUTS -- PARAMETER MEANING
' MaxLines MAXIMUM # OF LINES
' MaxLen MAXIMUM LENGTH OF A LINE
' NumLines NUMBER OF LINES ALREADY IN MESSAGE
' LineAra$ ARRAY OF LINES IN MESSAGE
'
' OUTPUTS -- NumLines
' LineAra$
'
' PURPOSE -- Allows local user to append a text file to
' a message. Will word wrap if needed.
'
SUB MsgImport (MaxLines,MaxLen,NumLines,LineAra$(1)) STATIC
IF ZWelcomeAboard THEN _ ' RM032401
ZUserIn$ = "WELCOME.DEF" : _ ' RM032401
GOTO 59701 ' RM032401
IF NOT (ZLocalUser OR ZSysop) THEN _
CALL QuickTPut1 ("Sorry, Only for SysOps or Local Logons.") : _ ' TC090101
EXIT SUB
59700 ZOutTxt$ = "Import What Text File" + ZPressEnter$ ' TC090101
CALL PopCmdStack
IF ZSubParm = -1 OR ZWasQ = 0 THEN _
EXIT SUB
CALL FindIt (ZUserIn$(ZAnsIndex))
IF NOT ZOK THEN _
CALL QuickTPut1 (ZUserIn$(ZAnsIndex) + " Not Found.") : _ ' TC090101
GOTO 59700
59701 IF ZWelcomeAboard THEN _ ' RM032401
CALL FindIt (ZUserIn$) ' RM032401
WHILE NOT EOF(2) AND NumLines < MaxLines
NumLines = NumLines + 1
LINE INPUT #2,LineAra$(NumLines)
WEND
CLOSE 2
CALL WordWrap (MaxLen,NumLines,LineAra$())
END SUB